
 1000  *SAVE S.FUNNY DIVIDE BY SEVEN
 1010  *--------------------------------
 1020  BYTE   .EQ 0
 1030  *--------------------------------
 1040  T      LDA #0
 1050         STA BYTE
 1060  .2     LDX #14
 1070  .1     CPX #7
 1080         BNE .4
 1090         LDA #$A0
 1100         JSR $FDED
 1110  .4     JSR DIVIDE.BY.SEVEN
 1120         JSR $FDDA
 1130         INC BYTE
 1140         BEQ .3
 1150         DEX
 1160         BNE .1
 1170         JSR $FD8E
 1180         JMP .2
 1190  .3     RTS
 1200  *--------------------------------
 1210  DIVIDE.BY.SEVEN
 1220         LDA BYTE
 1230         LSR
 1240         LSR
 1250         LSR
 1260         ADC BYTE
 1270         ROR 
 1280         LSR
 1290         LSR
 1300         ADC BYTE
 1310         ROR 
 1320         LSR
 1330         LSR
 1340         RTS
 1350  *--------------------------------

